(*# call(o_a_copy => off) *)
(*%T _fcall *)
(*# call(seg_name => QCxm) *)
(*%E *)
(*%F _fcall *)
(*# call(seg_name => null) *)
(*%E *)
(*# module(implementation=>on) *)
(*# data(seg_name => null) *)
DEFINITION MODULE QCxm;

                     (* This JPI Modula-2 module is part of *)

                      (* QC -- a communications program *)
                             (* by Carl Neiburger *)
                              (* 169 N. 25th St.*)
                          (* San Jose, Calif. 95116 *)

                         (* CompuServe No. 72336,2257 *)

FROM PathFind IMPORT FilePtr;
FROM FioAsm IMPORT PathStr;
FROM QCxmzero IMPORT ProtoSet;
FROM QCcomm IMPORT XModem, XModem1K;

CONST
    SimpleXmProtos = ProtoSet{XModem, XModem1K};

PROCEDURE ReceiveXmodem( FilePath, FileName : PathStr );

PROCEDURE SendXmodem( ThisFile: FilePtr );

END QCxm.

